www.gusucode.com > 动网论坛Dvbbs v8.3 > 动网论坛Dvbbs v8.3\code\源程序\ForumInfo.asp
<!--#include file="Conn.asp"--> <!-- #include file="inc/const.asp" --> <!--#include file="inc/dv_clsother.asp"--> <% Dim XmlDom,Root,forum Call CreatForumXml() Sub CreatForumXml() Set XmlDom = Dvbbs.CreateXmlDoc("msxml2.FreeThreadedDOMDocument") XmlDom.appendChild(XmlDom.createElement("Dvbbs")) Set forum = XmlDom.documentElement.appendChild(XmlDom.createNode(1,"forum","")) Rem ---------------------- 节点 ---------------------- forum.setAttribute "Type",Dvbbs.forum_info(0) forum.setAttribute "URL",Dvbbs.forum_info(1) forum.setAttribute "Online",MyBoardOnline.Forum_Online forum.setAttribute "GuestOnline",MyBoardOnline.Forum_GuestOnline forum.setAttribute "UserOnline",MyBoardOnline.Forum_UserOnline forum.setAttribute "User",Dvbbs.CacheData(10,0) forum.setAttribute "Topic",Dvbbs.CacheData(7,0) forum.setAttribute "Post",Dvbbs.CacheData(8,0) forum.setAttribute "TodayPost",Dvbbs.CacheData(9,0) forum.setAttribute "YesterdayPost",Dvbbs.CacheData(11,0) Rem ---------------------- 节点 ---------------------- Response.Clear Response.CharSet="gb2312" '数据集 Response.ContentType="text/xml" '数据流格式定义 Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine Response.Write XmlDom.xml Response.End End Sub Set XmlDom = Nothing Dvbbs.PageEnd() %>